home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / misc / edu / GlossTask.lha / GlossTask1_72DEMO / Install_to_Harddisk < prev    next >
Encoding:
Text File  |  1998-04-22  |  3.7 KB  |  173 lines
  1. ; GlossTask install to harddisk
  2. ; Håkan Parting 15 April 1998
  3.  
  4. ; ** set system variables **
  5. (set cpu (database "cpu"))
  6. (if (= cpu 68000) (set #cpu 0))
  7. (if (= cpu 68010) (set #cpu 1))
  8. (if (= cpu 68020) (set #cpu 2))
  9. (if (= cpu 68030) (set #cpu 3))
  10. (if (= cpu 68040) (set #cpu 4))
  11. (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  12.  
  13. (message
  14.      "Welcome to the GlossTask installer!\n\n"
  15.     "GlossTask © Håkan Parting 1994-1998\n"
  16. )
  17.  
  18. (working "Setting up installation. Please wait...")
  19. ;    (run "copy Glos#? to ram:GlossT")
  20. ;    (run "copy Catalogs to ram:GlossT/catalogs ALL")
  21. ;    (run "copy Docs to ram:GlossT/docs ALL")
  22. ;    (run "copy Vocables to ram:GlossT/Vocables ALL")
  23. ;    (run "copy s to ram:GlossT/s ALL")
  24.     (run "copy #? to ram:GlossT ALL")
  25.     (run "delete ram:GlossT/Install_#?")
  26. (complete 10)
  27.  
  28. (welcome)
  29. (set cpuVal (askchoice (choices "68000" "68010" "68020" "68030"
  30.                          "68040" "68060"
  31.                     )
  32.                 (prompt "Please, select the processor your Amiga have")
  33.                 (help   "Recommended is to leave it as default")
  34.                   (default #cpu)
  35.           )
  36. )
  37.  
  38. (set #target (askdir
  39.         (prompt "Where would you like to install GlossTask?\nThe directory will be created automatically.")
  40.             (help @askdir-help)
  41.         (default @default-dest)
  42.     )
  43. )
  44.  
  45. (set glos-dest (tackon #target "GlossTask"))
  46. (set @default-dest glos-dest)
  47.  
  48. (makedir glos-dest (infos))
  49.  
  50. (complete 20)
  51. (working "Installing GlossTask program...")
  52.     (copyfiles
  53.         (help @copyfiles-help)
  54.         (source "ram:GlossT/GlossTask")
  55.         (dest glos-dest )
  56.         (infos)
  57.     )
  58.  
  59. (complete 30)
  60.     (copyfiles
  61.         (help @copyfiles-help)
  62.         (source "ram:GlossT/Glos_Settings")
  63.         (dest glos-dest)
  64.         (infos)
  65.     )
  66.  
  67.     (copyfiles
  68.         (help @copyfiles-help)
  69.         (source "ram:GlossT/Läs_mig_nu!")
  70.         (dest glos-dest)
  71.         (infos)
  72.     )
  73. (complete 40)
  74.     (copyfiles
  75.         (help @copyfiles-help)
  76.         (source "ram:GlossT/Readme_first")
  77.         (dest glos-dest)
  78.         (infos)
  79.     )
  80.   
  81.     (copyfiles
  82.         (help @copyfiles-help)
  83.         (source "ram:GlossT/WB2.0Users_read_this!!")
  84.         (dest glos-dest)
  85.         (infos)
  86.     )
  87.  
  88. (complete 50)
  89.     (copyfiles
  90.         (help @copyfiles-help)
  91.         (source "ram:GlossT/AGuideConv")
  92.         (dest glos-dest)
  93.     )
  94.  
  95.     (copyfiles
  96.         (help @copyfiles-help)
  97.         (source "Ram:GlossT/AguideConv.doc")
  98.         (dest glos-dest)
  99.         (infos)
  100.     )
  101.  
  102. (complete 60)
  103.         (copyfiles
  104.         (prompt "Do you want to install the vocable-lists?")
  105.         (help @copyfiles-help)
  106.         (source "ram:GlossT/Vocables")
  107.         (dest (cat glos-dest "/Vocables" ))
  108.         (all)
  109.         (confirm)
  110.     )
  111.     
  112.  
  113. (complete 70)
  114.  
  115. (working "Installing documentation")
  116.     (copyfiles
  117.         (prompt "Which documentation do you want to install?")
  118.         (help @copyfiles-help)
  119.         (source "ram:GlossT/docs")
  120.         (dest (cat glos-dest "/Docs" ))
  121.         (all)
  122.         (infos)
  123.         (confirm)
  124.     )
  125.  
  126. (complete 80)
  127. (working "Installing local-translations")
  128.  
  129. (copyfiles
  130.         (prompt "Which language do you want to install?")
  131.         (help @copyfiles-help)
  132.         (source "ram:GlossT/catalogs")
  133.         (dest (cat glos-dest "/Catalogs" ))
  134.         (choices "Svenska")
  135.         (confirm)
  136.     )
  137.  
  138. (complete 90)
  139. (copyfiles
  140.     (prompt "Installing config-file to S: directory")
  141.     (help @copyfiles-help)
  142.     (source "ram:GlossT/s/GlossTask.config" )
  143.     (dest "S:")
  144.     (Confirm)
  145. )
  146.  
  147. (if (> cpuVal 1) (
  148. (copylib (prompt #prompt_copy "\n\ngtlayout.library" )
  149.          (help @copylib-help)
  150.          (confirm "average")
  151.          (source "ram:GlossT/libs/gtlayout.library.020")
  152.          (dest "LIBS:")
  153.         (newname "gtlayout.library")
  154.          (optional "oknodelete" "force")
  155. )))
  156. (if (< cpuVal 2) (
  157. (copylib (prompt #prompt_copy "\n\ngtlayout.library" )
  158.          (help @copylib-help)
  159.          (confirm "average")
  160.          (source "ram:GlossT/libs/gtlayout.library.68k")
  161.          (dest "LIBS:")
  162.         (newname "gtlayout.library")
  163.          (optional "oknodelete" "force")
  164. )))
  165.  
  166. (working "Cleaning up..")
  167.     (run "delete ram:GlossT ALL")
  168.  
  169. (complete 100)
  170. (message "Thanks for using GlossTask!\n")
  171.  
  172. (exit)
  173.